Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Apr 2011
Ohne da jetzt durchgestiegen zu sein, wie sieht es so aus (ungetestet)? Allerdings fülle ich nichts auf, da mir die Länge der längsten Zeile ja nicht im Voraus bekannt ist.
function GetLanguages: Boolean;
var
LstValues, LstFile: TStringList;
i, j: Integer;
Filename: string;
begin
Result := false;
Filename := ChangeFileExt(Application.ExeName, '.lng');
if not...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Apr 2011
Na dann
Frame.Parent := Application.MainForm;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Apr 2011
Nur eine Idee:
procedure TfmMain.DeinImageClick(Sender: TObject);
begin
if Sender is TImage then
Frame.Parent := TImage(Sender).Parent;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Apr 2011
Genau, entweder mit FreeAndNil oder nach dem Free Objekt selbst auf nil setzen.