Witam !.
Czy zna ktoś procedurę lub procedury która powodowałaby wyswietlenie wszystkich "dymków" w kontrolkach umieszczonych na formie bez konieczności najeżdżania myszką.
Będę wdzięczny za pomoc.
Pozdrawiam.
- Rejestracja:około 17 lat
- Ostatnio:około 3 lata
- Lokalizacja:Szczecin
- Postów:4191
0
Jeżeli potrzebujesz znać tylko wszystkie hinty a nie je fizycznie widzieć to możesz zapisać je do
pliku, tak jak w kodzie poniżej albo żywając tej samej procedury ale zmiast zapisu do pliku zrobić
wyświetlanie na Canvasie Textu podpowiedzi komponentów. Innego pomyslu nie mam za bardzo.
var
I : integer;
Str : string;
SL : TStringList;
begin
SL := TStringList.Create;
for I := 0 to ComponentCount - 1 do
begin
Str := TControl(FindComponent(Components[I].Name)).Hint;
if Str <> '' then
begin
SL.Add(Components[I].Name + ' (' + Str + ')');
end;
end;
if SL.Count > 0 then
begin
SL.SaveToFile('D:\hinty.txt');
end;
SL.Free;
end;
A z wypisywaniem na Canvasie w stylu zbliżonym do standardowych hintów czyli żółte użyj kodu:
var
I : integer;
Str : string;
begin
for I := 0 to ComponentCount - 1 do
begin
Str := TControl(FindComponent(Components[I].Name)).Hint;
if Str <> '' then
begin
Canvas.Brush.Color := clYellow;
Canvas.TextOut(TControl(FindComponent(Components[I].Name)).Left,
TControl(FindComponent(Components[I].Name)).Top - 20, Str);
end;
end;
end;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.